5 REM DSAVE"@TERMINAL.VIC"
50 REM" TERM.VIC  WRITTEN BY STEVE PUNTER  CONVERTED TO [214][201][195] BY KEITH PETERSON
100 [139][194](14592)[179][177]76[167][147]"TERM.VIC",8,1
105 [151]56,56:[151]644,56:[156]:[159]5,2,0,[199](6)[170][199](0)
110 RE$[178]" ":SE$[178]" ":MO%[178]134:R%[178]0:C$[178]"0123456789ABCDEF"
115 RP[178]2:RS[178]0:WP[178]RP:WS[178]RS
120 ML[178]14592:[151]ML[170]1791,RP:[151]ML[170]1790,RS[170]96:[151]ML[170]1789,WP:[151]ML[170]1788,WS[170]96
130 [153][199](14):[151]ML[170]1785,0
135 [159]1,8,15:[151]556,0:[151]552,0:[151]553,1
140 DN$[178]"":[137]150
145 [161]#5,A$,A$:[158]ML[170]0:[160]11:[151]ML[170]1785,0:TM[178]0:[137]105
150 [153]"LOADASCUNCTION:"
155 [153]"1 - (null)ERMINAL (null)ODE"
160 [153]"2 - (null)ECEIVE PROGRAM"
165 [153]"3 - (null)RANSMIT PROGRAM"
185 [153]"4 - (null)UIT"
190 [161]A$:[139]A$[178]""[167]190
195 [145][197](A$)[137]145,500,670,765
200 [137]190
500 [143] RECEIVE A PROGRAM
505 [153]"(null)AME OF ASCILE?"
510 [153]"STR$EFAULT DRIVE IS #0":[153]">";:[141]800:S$[178]B$
515 [139]S$[178]""[167][152]5,"A";:[137]145
520 [139][202](S$,2,1)[179][177]":"[167]S$[178]"0:"[170]S$
525 [141]625:S$[178]"@"[170]S$[170]T$[170]",W"
530 [160]2:[159]2,8,2,S$:[141]835:[139]ES[167][153]ES$:[160]2:[137]505
535 [152]5,"TTTTTTTTTT";
545 [129]X[178]0[164]10:[130]:[161]#5,A$:[139]A$[179][177]""[167]545
546 [158]ML[170]18:[139][194](144)[178]2[167]570
550 [129]X[178]0[164]10:[130]:[161]#5,A$:[139]A$[179][177]""[167]550
555 S1[178][194](ML[171]2):S2[178][194](ML[171]1):[158]ML[170]12
560 [139]S1[179][177][194](ML[171]2)[176]S2[179][177][194](ML[171]1)[167]575
565 [158]ML[170]15:[152]5,"";:[153]"-";:[137]545
570 [160]2:[152]5,"SSSSSSSSSS";:[153]:[137]145
575 [152]5,"";:[153]":";:[137]545
580 [153]"(null)YPE OF ASCILE:"
585 [153]"((null))ROGRAM, ((null))ORD(null)RO, OR ((null))EQ?":[153]">";
590 [161]B$:[139]B$[178]""[167]590
595 TY$[178]B$:FL[178]0
600 [139]B$[178]"P"[167]T$[178]",P":[151]557,0:[153]"(null)ROGRAM":[142]
605 [139]B$[178]"S"[167]T$[178]",S":[151]557,0:[153]"(null)VAL(null)":[142]
610 [139]B$[178]"W"[167]T$[178]",P":[151]557,1:[153]"(null)ORD(null)RO":[142]
615 [139]B$[178][199](13)[167]FL[178]1:[142]
620 [137]590
625 [161]#5,A$:[139]A$[179][177]""[167]625
626 [152]5,"UUUUUUUUUU";
630 [161]#5,A$:[139]A$[178]""[167]630
635 [139]A$[178]"P"[167]T$[178]",P":[151]557,0:A$[178]"(null)ROGRAM":[137]655
640 [139]A$[178]"S"[167]T$[178]",S":[151]557,0:A$[178]"(null)VAL(null)":[137]655
645 [139]A$[178]"W"[167]T$[178]",P":[151]557,1:A$[178]"(null)ORD(null)RO":[137]655
650 [137]630
655 [153]"ASCILE (null)YPE: "A$""
660 [161]#5,A$:[139]A$[179][177]""[167]660
665 [142]
670 [143] SEND AN SEQ FILE TO BULLETIN BOARD
675 [153]"(null)AME OF ASCILE TO (null)END?":[153]">";:[141]800:S$[178]B$
680 [139]S$[178]""[167][152]5,"A";:[137]145
685 [141]580:[139]FL[167]S$[178]"":[137]680
690 [160]2:[159]2,8,2,S$[170]T$:[141]835:[139]ES[167][153]ES$:[160]2:[137]675
695 [129]X[178]1[164]10:[152]5,TY$;:[130]X:[153]
700 [161]#5,A$:[139]A$[179][177]"U"[167]700
705 [158]ML[170]9:CK[178][194](144)
710 [161]#5,A$:[139]A$[179][177]""[167]710
715 [129]X[178]1[164]500:[130]:[143] DELAY LOOP
720 [129]T[178]0[164]255:[152]5,[199]([194](ML[171]256[170]T));:[130]T
725 [152]5,"ZZZZZZZZZZZZZZZ";
730 [161]#5,A$:[139]A$[178]""[167]730
735 [139]A$[178]""[167][153]":";:[137]710
740 [139]A$[179][177]""[167]730
745 [139]CK[178]0[167][153]"-";:[137]705
750 [161]#5,A$:[139]A$[179][177]""[167]750
755 [160]2:[161]A$:[139]A$[179][177]""[167]755
756 [137]145
760 [158]ML[170]21:A$[178][199]([194](634)):[142]
765 [143] QUIT TERMINAL
790 [160]5:[160]1:[160]2:[160]11
792 [153][199](9)
795 [128]
800 [153]" WAITCMD";:B$[178]""
805 [161]A$:[139]A$[178]""[167]805
810 [139]A$[178][199](20)[167]825
815 [139]A$[178][199](13)[167][153]" ":[142]
820 B$[178]B$[170]A$:[153]" CMD"A$" WAITCMD";:[137]805
825 [139][195](B$)[178]0[167]805
830 B$[178][200](B$,[195](B$)[171]1):[153]A$;:[137]805
835 [143] GET ERROR CHANNEL
840 [132]1,E1$,E2$,E3$,E4$
845 ES$[178]E1$[170]","[170]E2$[170]","[170]E3$[170]","[170]E4$
850 ES[178][197](E1$):[142]
0